﻿Public Class Conteo
    Private CIA As String
    Private CONT_Codigo As String
    Private ART_Codigo As String
    Private ART_Ubicacion As String
    Private CONT_Grupo As String
    Private CONT_Cantidad As Double

    Public Sub New()
    End Sub
    Public Sub New(ByVal CIA As String, ByVal CONT_Codigo As String, ByVal ART_Codigo As String, ByVal ART_Ubicacion As String,
                   ByVal CONT_Grupo As String, ByVal CONT_Cantidad As String)
        gCIA = CIA
        gCONT_Codigo = CONT_Codigo
        gART_Codigo = ART_Codigo
        gART_Ubicacion = ART_Ubicacion
        gCONT_Grupo = CONT_Grupo
        gCONT_Cantidad = CONT_Cantidad
    End Sub

    Public Property gCIA() As String
        Get
            Return CIA
        End Get
        Set(ByVal value As String)
            CIA = value
        End Set
    End Property

    Public Property gCONT_Codigo() As String
        Get
            Return CONT_Codigo
        End Get
        Set(ByVal value As String)
            CONT_Codigo = value
        End Set
    End Property

    Public Property gART_Codigo() As String
        Get
            Return ART_Codigo
        End Get
        Set(ByVal value As String)
            ART_Codigo = value
        End Set
    End Property

    Public Property gART_Ubicacion() As String
        Get
            Return ART_Ubicacion
        End Get
        Set(ByVal value As String)
            ART_Ubicacion = value
        End Set
    End Property

    Public Property gCONT_Grupo() As String
        Get
            Return CONT_Grupo
        End Get
        Set(ByVal value As String)
            CONT_Grupo = value
        End Set
    End Property

    Public Property gCONT_Cantidad() As Double
        Get
            Return CONT_Cantidad
        End Get
        Set(ByVal value As Double)
            CONT_Cantidad = value
        End Set
    End Property
End Class
